home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tpdb314.zip
/
STATUS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-31
|
646b
|
29 lines
{$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
{$M 65520,0,655360}
Program Status;
Uses Crt,Dos,TPDB,TPDBScrn;
VAR
CurrFile : ^DBF;
begin
CursorOff;
If ParamCount = 0 then
begin
ClrScr;
Beep;
Flash(1,1,LightRed+BlackBG,'Syntax: STATUS filename.ext');
CursorOn;
Halt(1);
end;
NEW(CurrFile,Init(ParamStr(1)));
SetDBColor(LightCyan,Black);
CurrFile^.ShowStatus;
CurrFile^.Done;
SetDBColor(Black,Black);
ClrScr;
FlashC(12,Yellow+BlackBG,'Copyright 1991 Brian Corll');
CursorON;
end.